home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / RECPTUNR.ZIP / RECEIPT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-14  |  5KB  |  230 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING002
  20.     String   STRING003
  21.     String   STRING004
  22.     String   STRING005
  23.     String   STRING006
  24.     String   STRING007
  25.     String   STRING008
  26.     String   STRING009
  27.     String   STRING010
  28.     String   STRING011
  29.     String   STRING012
  30.     String   STRING013
  31.     String   STRING014
  32.     String   STRING015
  33.     String   STRING016
  34.     String   STRING017
  35.     String   STRING018
  36.     String   STRING019
  37.     String   STRING020
  38.     String   STRING021
  39.     String   STRING022
  40.     String   STRING023
  41.     String   STRING024
  42.     String   STRING025
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     STRING002 = ""
  47.     Log "RECEIPT: entered", 0
  48.     GetUser
  49.     If (Psa(3)) Goto LABEL001
  50.     Log "RECEIPT: address PSA not installed", 0
  51.     PrintLn "RECEIPT: address PSA not installed"
  52.     PrintLn "Please notify sysop. Exiting..."
  53.     Goto LABEL002
  54.     :LABEL001
  55.     FOpen 1, PPEPath() + "RECEIPT.CFG", 0, 0
  56.     If (Ferr(1)) Then
  57.         PrintLn "@X02RECEIPT: could not open RECEIPT.CFG, exiting..."
  58.         Log "RECEIPT: could not open RECEIPT.CFG, exiting...", 0
  59.     Else
  60.         FGet 1, STRING019
  61.         FGet 1, STRING020
  62.         FGet 1, STRING021
  63.         FGet 1, STRING022
  64.         FGet 1, STRING023
  65.         FGet 1, STRING024
  66.         FGet 1, STRING003
  67.         FGet 1, STRING004
  68.         FGet 1, STRING005
  69.         FGet 1, STRING006
  70.         FGet 1, STRING007
  71.         FGet 1, STRING008
  72.         FGet 1, STRING009
  73.         FGet 1, STRING010
  74.         FGet 1, STRING011
  75.         FGet 1, STRING012
  76.         FGet 1, STRING014
  77.         FGet 1, STRING015
  78.         FGet 1, STRING016
  79.         FGet 1, STRING017
  80.         FGet 1, STRING018
  81.         If (Ferr(1)) Then
  82.             PrintLn "@X02RECEIPT: error reading RECEIPT.CFG, exiting..."
  83.             Log "RECEIPT: error reading RECEIPT.CFG, exiting...", 0
  84.             FClose 1
  85.         Else
  86.             FClose 1
  87.             PrintLn "@CLS@@X07@X0C▐@X4C┌───────────────────────────────────────────────────────────────────────────@X40┐@X08▌"
  88.             PrintLn "@X0C▐@X4C│ @X4ERECEIPT.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS: (905) 568-5294 @X40│@X08▌"
  89.             PrintLn "@X0C▐@X4C└@X40───────────────────────────────────────────────────────────────────────────┘@X08▌"
  90.             If (STRING002 <> "") Then
  91.                 STRING025 = "@X0EREGISTERED TO: " + STRING002
  92.                 Forward (80 - Len(STRING025)) / 2
  93.                 PrintLn "@X08" + STRING025
  94.             Else
  95.                 PrintLn "@X8E                         UNREGISTERED EVALUATION COPY"
  96.             Endif
  97.             If (((((U_Sec <> STRING003) && (U_Sec <> STRING005)) && (U_Sec <> STRING007)) && (U_Sec <> STRING009)) && (U_Sec <> STRING011)) Then
  98.                 PrintLn "@X0CYou are not yet a subscribing member of this BBS. Ask your sysop for"
  99.                 Print "@X0Cinformation about subscribing to @BOARDNAME@."
  100.                 Newline
  101.                 Print "@WAIT@"
  102.             Else
  103.                 FCreate 1, PPEPath() + "RECEIPT.TXT", 1, 2
  104.                 If (Ferr(1)) Then
  105.                     PrintLn "@X02RECEIPT: error opening RECEIPT.TXT, exiting..."
  106.                     Log "@X02RECEIPT: error opening RECEIPT.TXT, exiting...", 0
  107.                 Else
  108.                     Select Case (U_Sec)
  109.                         Case STRING003
  110.                             STRING013 = STRING004
  111.                         Case STRING005
  112.                             STRING013 = STRING006
  113.                         Case STRING007
  114.                             STRING013 = STRING008
  115.                         Case STRING009
  116.                             STRING013 = STRING010
  117.                         Case STRING011
  118.                             STRING013 = STRING012
  119.                         Case Else
  120.                             PrintLn "@X0CYou are not yet a subscribing member of this BBS. Ask your sysop for"
  121.                             Print "@X0Cinformation about subscribing to @BOARDNAME@."
  122.                             Newline
  123.                             Print "@WAIT@"
  124.                             Goto LABEL002
  125.                     End Select
  126.                     FPutLn 1, "*****************************************************************************"
  127.                     FPutLn 1, "* RECEIPT.PPE * COPYRIGHT 1994 ROBERT BROWER * TOTAL ACCESS: (905) 568-5294 *"
  128.                     FPutLn 1, "*****************************************************************************"
  129.                     FPutLn 1, ""
  130.                     If (STRING002 == "") Then
  131.                         FPutLn 1, "THIS RECEIPT GENERATED BY AN UNREGISTERED EVALUATION COPY"
  132.                         FPutLn 1, ""
  133.                     Else
  134.                         FPutLn 1, "REGISTERED TO: " + STRING002
  135.                         FPutLn 1, ""
  136.                     Endif
  137.                     FPutLn 1, STRING019, " - ", STRING021
  138.                     FPutLn 1, STRING022, " - ", STRING024, " - ", STRING023
  139.                     FPutLn 1, STRING020
  140.                     FPutLn 1, ""
  141.                     FPutLn 1, "RECEIVED FROM: ", U_Name(), " THE AMMOUNT OF: ", STRING013
  142.                     FPutLn 1, "FOR ACCESS LEVEL: ", U_Sec, " UNTIL THE DATE: ", U_ExpDate
  143.                     FPutLn 1, ""
  144.                     FPutLn 1, "USER ADDRESS:"
  145.                     FPutLn 1, U_Addr(0) + " " + U_Addr(1)
  146.                     FPutLn 1, U_Addr(2) + ", " + U_Addr(3)
  147.                     FPutLn 1, U_Addr(4) + ", " + U_Addr(5)
  148.                     FPutLn 1, "USER HOME PHONE: " + U_HVPhone
  149.                     FPutLn 1, "USER DATA PHONE: " + U_BDPhone
  150.                     FPutLn 1, ""
  151.                     FPutLn 1, "SYSOP COMMENTS:"
  152.                     FPutLn 1, ""
  153.                     FPutLn 1, STRING014
  154.                     FPutLn 1, STRING015
  155.                     FPutLn 1, STRING016
  156.                     FPutLn 1, STRING017
  157.                     FPutLn 1, STRING018
  158.                     FPutLn 1, ""
  159.                     FPutLn 1, "PLEASE REPORT ANY DISCREPENCIES IN THIS RECEIPT TO YOUR SYSOP. THANK YOU!"
  160.                     FClose 1
  161.                     PrintLn 
  162.                     Print "@WAIT@"
  163.                     Newline
  164.                     Download "RECEIPT.TXT" + ";" + U_Trans
  165.                 Endif
  166.             Endif
  167.         Endif
  168.     Endif
  169.     :LABEL002
  170.     FClose 1
  171.     FClose 2
  172.     Log "RECEIPT: exited", 0
  173.     End
  174.  
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Usage report (before postprocessing)
  178. ;
  179. ; ■ Statements used :
  180. ;
  181. ;    1       End
  182. ;    25      Goto 
  183. ;    7       Let 
  184. ;    5       Print 
  185. ;    13      PrintLn 
  186. ;    12      If 
  187. ;    1       FCreate 
  188. ;    1       FOpen 
  189. ;    5       FClose 
  190. ;    21      FGet 
  191. ;    31      FPutLn 
  192. ;    1       GetUser
  193. ;    6       Log 
  194. ;    3       Newline
  195. ;    1       Forward 
  196. ;    1       Download 
  197. ;
  198. ;
  199. ; ■ Functions used :
  200. ;
  201. ;    1       /
  202. ;    15      +
  203. ;    1       -
  204. ;    6       ==
  205. ;    6       <>
  206. ;    12      !
  207. ;    4       &&
  208. ;    1       Len(
  209. ;    3       Ferr()
  210. ;    1       U_Name()
  211. ;    2       PPEPath()
  212. ;    1       Psa()
  213. ;
  214. ;------------------------------------------------------------------------------
  215. ;
  216. ; Analysis flags : No flag
  217. ;
  218. ;------------------------------------------------------------------------------
  219. ;
  220. ; Postprocessing report
  221. ;
  222. ;    0       For/Next
  223. ;    0       While/EndWhile
  224. ;    6       If/Then or If/Then/Else
  225. ;    1       Select Case
  226. ;
  227. ;------------------------------------------------------------------------------
  228. ;                 AEGiS Corp - Break the routines, code against the machines!
  229. ;------------------------------------------------------------------------------
  230.